*******************************************************************************
*** Paper: Populist Attitudes and Foreign Policy Postures
*** Correlations and models using different populism scales in Italy (Appendix)
********************************************************************************

*** PROGRAM SETUP COMMANDS
	set more off            // Disable partitioned output
	set dp period			// Use comma instead of dot for decimals
	clear all               // Start with a clean slate
	set linesize 80         // Line size limit to make output more readable
	macro drop _all         // clear all macros
	set scheme s1mono, permanent			// set graph scheme, e.g., cleanplots, plottig, plotplainblind, burd3, s1mono
	graph set window fontface "Times New Roman"				// set font in graphs | "Arial" | "Times New Roman"

************************************************************************************************************************************
************************************************************************************************************************************


*** Open data set
	capture use "Data_clean_ITApop.dta", clear


*** 1. Correlation

	correlate GoertzPopulism_0_1 GoertzAkkerman_0_1 GoertzCastanho_0_1 
	matrix C= r(C)
*	heatplot C, values(format(%9.2f)) color(hcl diverging, intensity(.4)) aspectratio(1) ///
*	lower xlabel(,angle(45)) graphregion(margin(large) fcolor(white)) legend(off)

*** 2. Models using Akkerman and Castanho Silva

	regress mi_index c.GoertzAkkerman_0_1  ib300.LeftRightAll_Rec age i.female i.educat2
	estimates store m1

	regress ci_index c.GoertzAkkerman_0_1  ib300.LeftRightAll_Rec age i.female i.educat2
	estimates store m2
	
	regress iso_index c.GoertzAkkerman_0_1  ib300.LeftRightAll_Rec age i.female i.educat2
	estimates store m3
	
	regress gj_index c.GoertzAkkerman_0_1  ib300.LeftRightAll_Rec age i.female i.educat2
	estimates store m4
	
	esttab 	m1 m2 m3 m4 using "Tables\Appendix_OLS_Posture_Akkerman.rtf", replace ///
		b(2) se(2) ar2 nogaps compress nobaselevels varwidth(15) ///
		modelwidth(6) nonumbers ///
		title("Regressions of foreign policy postures on populism (Akkerman et al.) and other predictors in Italy") ///
		mtitles("MI" "CI" "ISO" "GJ") ///
		drop()  ///
					coeflabels(_cons "Constant" ///
								GoertzAkkerman_0_1 "Populism (Akkerman)" ///
								100.LeftRightAll_Rec "Left" ///
								200.LeftRightAll_Rec  "Center-Left" ///
								400.LeftRightAll_Rec  "Center-Right" ///
								500.LeftRightAll_Rec  "Right" ///
								600.LeftRightAll_Rec  "Not self-categorized" ///
								age "Age" ///
								1.female "Gender (1=female)" ///
								2.educat2 "Education (2)" ///
								3.educat2 "Education (3)") ///
		order(_cons GoertzAkkerman_0_1 100.LeftRightAll_Rec 200.LeftRightAll_Rec 400.LeftRightAll_Rec 500.LeftRightAll_Rec 600.LeftRightAll_Rec age 1.female 2.educat2 3.educat2) ///
		note(Note: Reference category for left-right self-categorization is 'center'.)

	
	regress mi_index c.GoertzCastanho_0_1  ib300.LeftRightAll_Rec age i.female i.educat2
	estimates store m5

	regress ci_index c.GoertzCastanho_0_1  ib300.LeftRightAll_Rec age i.female i.educat2
	estimates store m6
	
	regress iso_index c.GoertzCastanho_0_1  ib300.LeftRightAll_Rec age i.female i.educat2
	estimates store m7
	
	regress gj_index c.GoertzCastanho_0_1  ib300.LeftRightAll_Rec age i.female i.educat2
	estimates store m8

	esttab 	m5 m6 m7 m8 using "Tables\Appendix_OLS_Posture_CastanhoSilva.rtf", replace ///
		b(2) se(2) ar2 nogaps compress nobaselevels varwidth(15) ///
		modelwidth(6) nonumbers ///
		title("Regressions of foreign policy postures on populism (Castanho Silva et al.) and other predictors in Italy") ///
		mtitles("MI" "CI" "ISO" "GJ") ///
		drop()  ///
					coeflabels(_cons "Constant" ///
								GoertzCastanho_0_1 "Populism (Castanho Silva)" ///
								100.LeftRightAll_Rec "Left" ///
								200.LeftRightAll_Rec  "Center-Left" ///
								400.LeftRightAll_Rec  "Center-Right" ///
								500.LeftRightAll_Rec  "Right" ///
								600.LeftRightAll_Rec  "Not self-categorized" ///
								age "Age" ///
								1.female "Gender (1=female)" ///
								2.educat2 "Education (2)" ///
								3.educat2 "Education (3)") ///
		order(_cons GoertzCastanho_0_1 100.LeftRightAll_Rec 200.LeftRightAll_Rec 400.LeftRightAll_Rec 500.LeftRightAll_Rec 600.LeftRightAll_Rec age 1.female 2.educat2 3.educat2) ///
		note(Note: Reference category for left-right self-categorization is 'center'.)
